perm filename SEGCOM.AUX[SYS,HE] blob
sn#009320 filedate 1972-12-06 generic text, type T, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
RECORD PAGE DESCRIPTION
00001 00001
00002 00002 EXTERNAL DECLARATIONS
00004 ENDMK
⊗;
COMMENT EXTERNAL DECLARATIONS;
ERP SQRT(REAL X);
ERP ATAN(REAL X);
ERP ACOS(REAL X);
EXTERNAL ITEMVAR
T_STEM,TMPATR,ITEM1,ITEMN,
IMATCH,NMATCH,OMATCH,MATCH,BMATCH,CMATCH,MATCH2,
NFLAVOR,
TPAIR,GRAPH,NODE,LINK,S,BACK,REASON,EXTERIOR,
F1,F,BB1,BB2,LX,E1,E2,R,R1,R2,L,L1,L2,L3,L4,C,B1,B2;
EXTERNAL INTEGER ITEMVAR LPAIR,NEWR,NEWL,NEWP,NEWF,NEWB;
EXTERNAL SET ITEMVAR SIV,X,Y,Z;
EXTERNAL SAFE REAL ARRAY ITEMVAR U,V,W,PX,P,P1,P2,P3,P4,XX,YY,B,P5;
EXTERNAL STRING STR;
EXTERNAL SAFE REAL ARRAY
FOURBY4[1:4,1:4],SIZE4[1:4],SIZE7[1:7];
EXTERNAL INTEGER I,J,K,IFLAG,ERRFLAG,X1,X2,Y1,Y2,BBADLCNT,
ADCOR1,ADCOR2;
EXTERNAL BOOLEAN BOOL,DEBUG2;
EXTERNAL SET
AROOUT,DOUBLE,SHAFTS,TTOPS,KTOPS,TSTEMS,SOP,PRSET,
S1,S2,S3,S4,S5,SX,NEWPOINTS,
P_SET,NO_CLASS;
EXTERNAL SAFE INTEGER ARRAY MERGED[0:4];